home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 01 (1982-09)(Softdisk)(Side A).zip / Softdisk Magazette Volume 2, No. 01 (1982-09)(Softdisk)(Side A).do / MENU.bas < prev    next >
BASIC Source File  |  1996-12-24  |  816b  |  27 lines
  1. 10  TEXT : HOME 
  2. 20  HTAB 9: PRINT "SOFTALK PRESENTS BASICALC"
  3. 23  HTAB 16: PRINT "7/30/82"
  4. 25  HTAB 13: PRINT "BY WM V. R. SMITH"
  5. 26  PRINT : PRINT : PRINT "     SPEEDSTAR USED BY PERMISSION OF            SOUTHWESTERN DATA SYSTEMS"
  6. 27  PRINT : PRINT "  TASC USED BY PERMISSION OF MICROSOFT"
  7. 30  VTAB 12
  8. 40  RESTORE 
  9. 50  DATA  "BASICALC IN APPLESOFT"
  10. 55  DATA  "RUN "
  11. 60  DATA "BASICALC COMPILED: SPEEDSTAR"
  12. 65  DATA  "BRUN "
  13. 70  DATA "BASICALC COMPILED: TASC"
  14. 75  DATA "EXEC "
  15. 80  DATA  "BACK TO SOFTDISK" 
  16. 85  DATA  "RUN"
  17. 100  FOR X = 1 TO 4
  18. 110  HTAB 7: READ A$(X)
  19. 120  READ D$:D$(X) =  CHR$(13) + CHR$(4) +D$
  20. 130  PRINT X;" - ";A$(X): PRINT 
  21. 140  NEXT 
  22. 145 A$(4) = "KICK.IT.OFF"
  23. 150  VTAB 20: HTAB 5
  24. 160  PRINT "YOUR CHOICE ";: GET A$
  25. 170 X =  VAL(A$): IF X <1  OR X >4  THEN 150
  26. 180  PRINT D$(X);A$(X)
  27. 190  END